home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / files / nz18.dms / nz18.adf / BASIC to Hardware / MouseCheck < prev    next >
Text File  |  1993-12-03  |  221b  |  14 lines
  1. 'Left mouse button
  2. 'From J.Murphy
  3. 'Checks FIRE0 signal
  4.  
  5. PRINT "Mouse check"
  6. PRINT "Click the left mouse button..."
  7. a&=&HBFE*&H1000+1:REM Address of CIAA
  8.  
  9. start:
  10. p=PEEK(a&)
  11. IF (p AND 64)=0 THEN PRINT "Pressed"
  12. GOTO start
  13.  
  14.